﻿Public Class Form2

    Private Sub Form2_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        Form1.AboutToolStripMenuItem.Enabled = True
    End Sub

    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        On Error Resume Next
        Me.Left = Screen.PrimaryScreen.WorkingArea.Width - Me.Width - 20
        Me.Top = Screen.PrimaryScreen.WorkingArea.Height - Me.Height - 20
        Me.Icon = Form1.Icon
        Me.Text = Application.ProductName
        Label3.Text = Application.ProductName & " ver. " & Application.ProductVersion
        PictureBox1.Image = Form1.Icon.ToBitmap

    End Sub

    Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.Close()
    End Sub
End Class